Buttons 


Button 6 


BUTTON 2 


Fublic Class Form1l BUTTON 2 برمج‎ 
Dir ã, bÛ A5 Double 
Private Sub Buttond LlIick{ByYal sender As System. UhJEeECTt, ByvYal e As STstem. Event Arc 
He. TeExXTtEOXl. Text = Fr 
HEL IEEE. ICT SS TT 
NE. bDAEELI TELE = FT 


LHA SUD 


Private Sub Button3 Llick{ByYal sender As System.VbjeECT, By¥al e As System.EventArgs) 
a = Tal (NE. TexTLBoxl. Tex] 
1 Val He. TexTtBOXZ . TeExT] 
He.LabEll. Text = a4a + p 


End Sub BUTTON 3 برمج‎ 


Handl7 


لجعل المؤشر دائما فى 1 ×0 ۲٤×۲8‏ لاحظ الكائن و الحدث 


PFrirzate Sub Buttont LIlIIcZkK(ByYal sender A3 System. Vbhject, EBy¥al e As System.EventArgs) Ha 
a = Vall He. TEexXTBOxXl. TEXT] 
2 Wal (HE. TEXTBOX . TEXT] 
Me.Label1.Text = a - b but)0n 4 برمجة‎ 

End Sub 
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Private Pub Buttons LlIICkK{ByYal sender A3 PRystem.VphjJect, ByYal e A3 System. EventArgaz)] Ha 
A 3 VALINE. IEITEDIlL.IEST | 
ط‎ Tal (Ne. TextBox. TEXT] 
He.LapþEeEll. Text = a Ff þ 
LE BB ATES 
I31٤ 0×)" إ"ف حالهك القسمهك حب الا يتون المقاحعم مساويا لصفر‎ 
ENG IT 
End Sub 


Private Sub Buttoné Llick{By¥al sender As System. UbjJecCT, By¥al e As System.EventArgs) 
a = Yall HE. TExTEoxl. Text] 
b = Val (Me. TextBoxa .Text)] 
He.LabEl1l. Text = a ^ php 


End 3Suh BUTTON 6 برمجة‎ 


Lla3s3 


TEXTBOX 2 


TEXTBOX1I 


"LrI¥aALE Pub Buttonl LlIICE[ByYal sender A3 Pystem.Vpject, Byval e As System.EventArgs] 
Dir i, MH, &zE AS [nteqeErF 
Wal | TExXTLEOxXd . Text] 
LE TH # ° La. IHER 
HIsgEox(" 12 إ(" ادخل رقم اقل هن او يساوى‎ 
CITE 
TOF 3 n TO ld 


2z =n * i '"' "اوجد جدول الضرب‎ 810۲10١ برمجة‎ 


TexlLEBOxl. Text = TexTtEoxl. Text 4&4 ] Zl & TpDLELf 


Private Sub BEButtond LlIIick{(ByVal sender As System.Vbject, By¥al e As System.EventArgs] Han 
TEXTBOOKS. Text = 
TexLEBOxX1I. Text 


برمجة 8110١‏ " ادخل رقم " 


IOERG TONE 


Form 


السلسة الحرفية 


الحرف المر اد عذه 


اوجد 


عدد رات تراز الحرف Label4‏ 


Private Sub Buttonl LIIick{ByYal sender As System. VbhjeECT, By¥al E As System. Evi 
UDirm aA, bD, A As String 
Dir Count, tL, i1i A3 [Inteq{er 
= Me. TEXTEOXIl. Text 
= Me. TExXTEOXZ. Text 
= LeEnlal 
COoOUunLE = Û 
FOE 13S 1 IDE 
dA = Midla, Tt, 1] 
LE QO = BG IDE 
COUHLE = ZoOUnE + 1 
End If . ي‎ 
TT برمجة مفتاح ×۲0 €اB " اوجد‎ 
LabEl43. Text = count 
End Sub 


< عمل اخوکم /رضا طعت سین > 


PDF created with pdfFactory Pro trial version www.pdffactory.com 


PDF created with pdfFactory Pro trial version www.pdffactory.com 


